`classesVector` <-
function(dataset) {
	return(as.vector(unique(dataset$class, fromLast = TRUE)))
}

